home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratique / Internet Pratique 01.iso / pc / PC / Partenaires / Wanadoo / Acrobat / READER / ACRORD32.EXE / PSPROCSET / 12 < prev    next >
Text File  |  1999-11-26  |  2KB  |  95 lines
  1. %%BeginResource: pdfimg2.prc
  2. %%Copyright: Copyright 1987-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFImage get begin
  4. Level2? StartLoad {
  5. /ID {
  6. 5 counttomark 2 idiv
  7. dup 3 1 roll add
  8. dict begin
  9. { def } repeat
  10. cleartomark
  11. currentdict
  12. end
  13. begin
  14. /ImageType here { pop } { /ImageType 1 def } ifelse
  15. /ImageMatrix [ Width 0 0 Height neg 0 Height ] def
  16. /ImageMask here { not } { true } ifelse
  17. { /ImageMask false def } if
  18. ImageMask not { ColorSpace setcolorspace } if
  19. /Intent here { ri } if
  20. SLBApplies?
  21. { ApplySLB }
  22. {
  23. mark
  24. /DataSource here { pop } {
  25. currentfile
  26. /Filter here {
  27. dup type /arraytype eq { length } { pop 1 } ifelse
  28. 1 sub 0 1 3 -1 roll {
  29. /DecodeParms here {
  30. dup type /arraytype eq {
  31. 1 index get
  32. } if
  33. dup null eq { pop } { exch } ifelse
  34. } if
  35. Filter dup type /arraytype eq
  36. { exch get } { exch pop } ifelse
  37. filter
  38. dup
  39. } for
  40. } if
  41. /DataSource exch def
  42. } ifelse
  43. currentdict
  44. /ImageMask here not { false } if
  45. { sfc imagemask } { image } ifelse
  46. counttomark
  47. { dup status
  48. { dup flushfile closefile }
  49. { pop }
  50. ifelse
  51. }
  52. repeat
  53. pop
  54. }ifelse
  55. end
  56. } bd
  57. /SLBApplies?
  58. {
  59. {
  60. languagelevel 3 lt {stop} if
  61. currentsystemparams /SourceListBypass known not {stop} if
  62. currentsystemparams /SourceListBypass get not {stop} if
  63. currentdict /Filter known not {stop} if
  64. Filter /CCITTFaxDecode ne {stop} if
  65. currentdict /DecodeParms known not {stop} if
  66. DecodeParms /K known not {stop} if
  67. DecodeParms /K get -1 ne {stop} if
  68. } stopped not
  69. } bd
  70. /ApplySLB
  71. {
  72. {
  73. /UncompressedLength
  74. Width
  75. DecodeParms /EncodedByteAlign getifknown
  76. { { 7 add 3 bitshift } if } if
  77. Height mul def
  78. /DataSource dup here { } {currentfile} ifelse
  79. 5 dict begin
  80. /Filter Filter def
  81. /DecodeParms DecodeParms def
  82. /Intent 3 def
  83. /AsyncRead false def
  84. /CloseSource false def
  85. currentdict end /ReusableStreamDecode filter def
  86. currentdict
  87. /ImageMask here not { false } if
  88. { sfc imagemask } { image } ifelse
  89. } exec
  90. } bd
  91. currentdict readonly pop
  92. } EndLoad
  93. end
  94. %%EndResource
  95.